version 16 

/// This file replicates the figure and tables from manuscript: How Non-Majoritarian Institutions Make Silent Majorities Vocal: A Political Explanation of Authoritarian Populism.  


* Code to replicate Figure 2, see R-script:  WVS_Trust.R 

* Code to replicate Figure 3 

use replication, clear 

xtset ccode 

xtline stdauth stdnras, i(country) t(year) ylabel(, angle(hor) grid) ///
xlabel(1960(10)2010, grid) xtick(1960(5)2010) legend(rows(1) label(1 "IO Authority") label(2 "Regulatory Agencies")) ///
xtitle("Year") 

* Code to replicate Figure 4 

xtline z_NMIsum z_pctg_g, i(country) t(year) ylabel(, angle(hor) grid) xlabel(1960(10)2010, grid) xtick(1960(5)2010) legend(rows(1) label(1 "Sum NMI") label(2 "Great Trust in Parliaments")) ///
xtitle("Year") 

* Footnote 18: correlation between NMI and Trust: 

corr z_NMIsum z_pctg_g 

* Code to replicate Figure 5: 

use claims, clear 
serrbar q_pos q_pos_se act_type, legend(order(0 "Legislative" 1 "Judiciary" 2 "Experts" 3 "Government/Executive" 4 "IOs")) title( Means of Political Positions of Actors )xtitle(Type of Actor) ytitle(Mean of Political Position) ylabel(,angle(0)) 

use replication, clear
* Code to replicate Figure 6, see R-Script: auth_rwp_parties_shares.R 


* Code to replicate Figure 7: 

xtline z_NMIsum z_vote, i(country) t(year) scheme(s1mono) ///
ylabel(, angle(hor) grid) xlabel(1960(10)2010 , grid) xtick(1960(5)2010) ///
legend(label(1 "NMI") label(2 "Vote Share")) xtitle("Year") 



* Code to repliacte Figure-Appendix 2: "WVC Trust in Parliament over time (all countries)" 

// see R script WVS_Trust.R 

* Code to reproduce Figure Appendix 3: "The Rise of NMIs in 16 Electoral Democracies (NMI Index)"

collapse (sum) stdNMIsum, by(year) 

tsset year
tsline stdNMIsum 












